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Abstract 

In 1990 Krivine (1990b) introduced the notion of storage operators. 
They are A-terms which simulate call-by-value in the call-by-name strat- 
egy. Krivine (1990b) has shown that there is a very simple type in the AF2 
type system for storage operators using Godel translation from classical to 
intuitionistic logic. Parigot (1993a) and Krivine (1994) have shown that 
storage operators play an important tool in classical logic. In this paper, 
we present a synthesis of various results on this subject. 



1 Introduction 

Lambda-calculus as such is not a computational model. A reduction strategy is 
needed. In this paper, we consider A-calculus with the left reduction. This strat- 
egy has much advantages : it always terminates when applied to a normalizable 
A-term and it seems more economic since we compute a A-term only when we 
need it. But the major drawback of this strategy is that a function must com- 
pute its argument every time it uses it. This is the reason why this strategy is 
not really used. In 1990 Krivine (1990b) introduced the notion of storage opera- 
tors in order to avoid this problem and to simulate call-by- value when necessary. 

The AF2 type system is a way of interpreting the proof rules for the sec- 
ond order intuitionistic logic plus equational reasoning as construction rules for 
terms. Krivine (1990b) has shown that, by using Godel translation from clas- 
sical to intuitionitic logic (denoted by ^), we can find in system AF2 a very 
simple type for storage operators. Historically the type was discovered before 
the notion of storage operator itself. Krivine (1990a) proved that as far as to- 
tality of functions is concerned second order classical logic is conservative over 
second order intuitionistic logic. To prove this, Krivine introduced the following 
notions : A[x] is an input (resp. output) data type if one can prove intuitionisti- 
cally A[x] A^[x] (reps. A^[x] — > -i^^[x]). Then if A[x] is an input data type 
and B[x] is an output data type, then if one prove A[x] — *■ B[x] classically one 
can prove it intuitionistically. The notion of storage operator was discovered by 
investigating the property of all A-terms of type Afs[a::] -^^N[x] where N[x] 
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is the type of integers. 

Parigot (1992) and Krivine (1994) have extended the system AF2 to the 
classical logic. The method of Krivine is very simple : it consists of adding a 
new constant, denoted by C, with the declaration C : VX{-i-iX X} which 
axiomatizes classical logic over intuitionistic logic. For the constant C, he adds 
a new reduction rule which is a particular case of a rule given by Felleisen (1987) 
for control operator. Parigot considerd a (second order) naturel deduction sys- 
tem with several conclusions which is more convenient that the visual naturel 
deduction system with the classical absurdity rule. Its computational interpre- 
tation is a natural extation of A-calculus, called A/x-calculus, which preserves 
the main properties of A-calculus and alows to model controlc structures too. 
In these systems the property of the unicity of representation of data is lost, but 
Parigot (1993a) and Krivine (1994) have shown that storage operators typable 
in AF2 can be used to find the values of classical integers. 

This paper studies some properties of storage operators in pure and typed 
A-calculus. We present, in particular, the results of Krivine, Parigot and the 
author. 

2 Pure and typed A-calculus 

Let t,ui, ...,Un be A-terms, the application of t to is denoted by 

{t)ui...Un- Fv{t) is the set of free variables of a A-term t. The /3-reduction 
(resp. /?-cquivalence) relation is denoted by u -^p v (resp. u v). If i is a 
normalizable A-term, we denote by N{t), the number of steps used to go from t 
to its normal form. The notation a{t) represents the result of the simultaneous 
substitution a to the free variables of t after a suitable renaming of the bounded 
variables off. We denote by {u)"v the A-term {u)...{u)v where u occurs n times, 
and u the sequence of A-terms (n > 0). If tZ = ui, we denote by 

{t)u the A-term (f)wi...u„. 

Let us recall that a A-term t either has a head redex [i.e. t = Xxi...Xxn{^xu)vv, 
the head redex being {Xxu)v], or is in head normal form [i.e. t = Xx-i...Xxn{x)v]. 
The notation u )~ v means that v is obtained from u by some head reductions. 
A A-term t is said to be solvable if and only if the head reduction of t terminates. 
liu)^ V, we denote by n{u, v) the length of the head reduction between u and 
V. And if t is solvable, we denote by n{t) the number of steps used to go from t 
to its head normal form. Krivine (1990b) has shown that : 

Lemma 2.1 1) If u >- v, then, for any substitution a, a{u) >- a{v), and 
n((T(u), (j{v))=n(u,v). 

2) If u >~ V, then, for every sequence of X-terms w, there is a w, such that 
{u)W>~w, {v)Wyw, and n{{u)W,w) = n{{v)W,w) + n{u,v). 
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Lemma 2.1 shows that to make the head reduction of <j{u) (resp. of {u)w) 
it is equivalent to make some steps in the head reduction of u, and after make 
the head reduction of a{v) (resp. of {v)w). 

The types will be formulas of second order predicate logic over a given lan- 
guage. The logical connectives are _L (a predicate symbol 0-air for absurde), 

and V. There are individual (or first order) variables denoted by x,y,z,..., 
and predicate (or second order) variables denoted by X,Y,Z,.... We do not 
suppose that the language has a special constant for equality. Instead, we 
define the formula u = v (where u,v are terms) to be WY(Y{u) Y{v)) 
where F is a unary predicate variable. Such a formula will be called an equa- 
tion. We denote by a w 6 the equivalence binary relation such that : if 
a = 6 is an equation, then a[ti/xi, ...,tn/xn\ ~ b[ti/xi, ...,tn/xn]- The for- 
mula Fi {F2 (... ^ {Fn ^ G)...)) is also denoted by ^1,^2, ...,Fn G. 
For every formula A, we denote by the formula A 

Let t be a A-term, A a type, T = X\ : Ai, Xn '■ An a. context, and E a set of 
equations. We define by means of the following rules the notion H is of type A 
in r with respect to E" ; this notion is denoted by T \-af2 t : A. 

(1) r hAF2 Xi:Ai{l<i<n) 

T,x :A\-AF2 t : B T \-af2 u : A ^ B V \-af'2 v : A 

^ ' r hAF2 Xxt-.A^B ^ ' r hAF2 {u)v : B 

(4) n (5) r) 



r ^AF2 1 : yxA ^ ' ' ' r \-af2 t -. a[u/x\ 

r ^AF2 t : A r hAF2 t : VXA 

r hAF2 t : VXA ^ ' ^ ^ r \-AF2 t : A[G/X] 



/o\ r ^AF2 t : A[u/x\ 



r I-AF2 t : A[v/x\ 

With the following conditions : (*) x,X have no free occurence in T and (**) 
u (resp. G) is a term (resp. formula). 

This typed A-calculus system is called AF2 (for Arithmetique Fonctionnelle du 
second ordre). It has the following properties (Krivine 1990a). 

Theorem 2.1 1) Types are preserved during reduction. 
2) Typable X-terms are strongly normalizable. 



3 Storage operators 

For every n G N, we define the Church integer n = AxA/(/)"x. Let s = 
XnXxXf{{n){f)x)f ; it is easy to check that s is a A-term for the successor. 
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Let F be a A-term (a function). During the computation, by left reduction, 
of {F)6n (where 6n —0ll), 6n may be computed as many times as F uses it. 
Wc would like to transform {F)9n to {F)n. We also want this transformation 
depends only on Oji (and not F^. In other words we look for some closed A-terms 
T with the following properties : 

- For every A-term F, n G N, and 0„ ~^ n, we have (T)6'„F >- {F)n; 

- The computation time of {T)9nF >- {F)n depends only on On- 

Definition (temporary) : A closed A-term T is called storage operator 
for Church integers iff for every n G N, and for every 0„ ~^ n, {T)Onf >- {f)n 
(where / is a new variable). 

It is clear that a storage operator satisfies the required properties. Indeed, 
since we have {T)6nf >- {f)n, then the variable / never comes in head position 
during the reduction, and we may then replace / by any A-term. We will show 
(see Theorem 3.1) that it is not possible to get the normal form of On- We then 
change the definition. 

Definition (temporary) : A closed A-term T is called storage operator for 
Church integers iff for every n e N, there is a closed A-term t„ — /3 n, such that 
for every On —0 R, {T)Onf >- (/)t„ (where / is a new variable). 

Krivine (1990b) has shown that, by using Godel translation from classical 

to intuitionitic logic, we can find a very simple type for storage operators. But 
the A-term t„ obtained may contain variables substituted by A-terms ui, ...,Um 
depending on On- Since the A-term t„ is /3-equivalent to n, therefore, the left 
reduction of the t„[ui/.xi, Um/xm] is equivalent to the left reduction of t„ 
and the A-terms ui, Um will therefore never be evaluated during the reduction. 

Definition (final) : A closed A-term T is called a storage operator for 
Church integers iff for every n G N, there is a A-term r„ n, such that for 
every On n, there is a substitution a, such that {T)Onf >- {f)<^{Tn) (where / 
is a new variable). 

Let F be any A-term (for a function), and On a A-term /3-equivalent to n. 
During the computation of {F)Om On may be computed each time it comes 
in head position. Instead of computing {F)On, let us look at the head reduc- 
tion of {T)OnF. Since it is {{T)Onf}[F / f]., by Lemma 2.1, we shall first reduce 
{T)0nf to its head normal form, which is (/)(t(t„), and then compute (F)(7'(t„) 
(cr' = 7 o cr where 7(/) = F an d7(a;) — x li x ^ f). The computation has been 
decomposed into two parts, the first being independent of F. This first part is 
essentially a computation of On, the result being r„, which is a kind of normal 
form of On- The substitutions made in r„ have no computational significance, 
since n is closed. So, in the computation of {T)OnF, On is computed first, and 
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the result is given to F as an argument, T has stored the result, before giving 
it, as many times as needed, to any function. 

If we take : Ti = Xn{{n)5)G where 6 = A/(/)0 and G = XxXy{x)Xz{y){s)z ; 
T2 = XnXf{{{n)f)F)0 where F = XxXy{x){s)y, then we can check that for ev- 
ery On n, (Ti)enf >- (/)U)"Q (i = 1 or 2) (Krivine 1990a and Nour 1993a). 
Therefore Ti and T2 are storage operators for Church integers. 

The most effective storage operators for Church integers - found by Krivine - 
give as result (s)"0. A question arises : Can we find storage operators for Church 
integers which give normal forms as result ? This kind of storage operators are 
called strong storage operators. We have shown (Nour 1995a) that : 

Theorem 3.1 Church integers do not have strong storage operators. 

The nonexistence of strong storage operators for Church integers results from 

the following facts: 

- The infinity of integers : We can prove that every finite subset of Church 
integers has strong storage operators (Nour 1995a). 

- The representation of integers : We can prove that we cannot create a Church 
integer n (n > 1) during head reduction in the application. If we change the 
representation of integers, we can find strong storage operators. For every n G 
N, we define the recursive integer n by induction : = XfXxx and n + 1 = 
XfXx{f)n. Let s = XnXfXx{f)n ; it is easy to check that s is a A-tcrm for 
successor. If we take T' = Xv{v)pTp where r = Xf{f)0, p — XyXz{G){y)zTZ, 
and G = XxXy{x)Xz{y)XfXx{f)z, then, for every 9n —0 n, {T')9nf >- {f)n. 
Therefore T' is a strong storage operators for recursive integers (Nour 1995a). 

4 Directed A-calculus and storage operators 

A closed A-term T is a storage operator for Church integers iff for every n G N, 
there is a A-tcrm t„ n, such that for every 0„ c^p n, there is a sub- 
stitution cr, such that{T)dnf >- (/)(t(t,i). Let's analyse the head reduction 
{T)6nf >- {f)a{Tn), by replacing each A-term which comes from On by a new 
variable. This will help us to better understand the Krivine proof of his prin- 
cipal storage Theorem (Theorem 5.2) and also to justify the introduction of 
directed A-calculus which allows to find similar results in the general case. 

If 9n —13 n, then 6'„ XxXg{g)tn-i, tn-k >~ {g)tn-k-i (1 < fc < n - 1), 
to >~ X, and tk —p {g)^x (0 < < n — 1). Let x„ be a new variable (x„ rep- 
resents 9n)- {T)xnf is solvable, and its head normal form does not begin by 
A, therefore it is a variable applied to some arguments. The free variables of 
{T)xnf are a;„ and /, we then have two possibilities for its head normal form 
: {f)5 (in this case we stop) or {xn)ai...ajn- Assume we obtain {xn)ai...ajn- 
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The variable Xn represents 6n, and 9n >- ^xXg{g)tn-i, therefore {0n)ai---am 
and {{a2)tn-i[ai/x, a2/g])a3...am have the same head normal form. The A-term 
tn-i[ai/x, a2/g] comes from 9n- Let Xn-i,aiM2 be a new variable (x„_i_ai,a2 rep- 
resents tn-i[ai/x,a2/g])- The A-term {{a2)xn-i,ai,a2)<^3---0'm is solvable, and 
its head normal form does not begin by A, therefore it is a variable applied 
to some arguments. The free variables of ((a2)a:;„_i.ai,a2)o3...am ^-rc among 
Xn-i,ai,a2J ^nd /, we then have three possibilities for its head normal form 
: {f)5 (in this case we stop) or (a;„)6i...6r or {Xn-i,ai,a2)^i---^r- Assume we ob- 
tain {Xn-i.ai,a2)^i---^r- The variablc(.T„_ i represents t„_i[ai/x, a2/,9], and 
tn-i >- {g)tn-2, therefore {tn-i[ai/x,a2/g])bi...br and {{a2)tn-2[a.i/x,a2/g])bi...br 
have the same head normal form. The A-term tn-2[ai/x, 0.2 /g] comes from On- 
Let Xn-2,ai,a2 be a ucw variable (x„_2,ai,a2 represents tn-2[ai / x , a2 / g]) . The 
A-term {{a2)xn-2,ai,a2)bi---br is solvable, and its head normal form does not 
begin by A, therefore it is a variable applied to arguments. The free variables of 
{{a2)xn-2Mua2)bi--br are among .x„_2, 01,02, Xn-i^ai.a2, and /, therefore we 
have four possibilities for its head normal form : {f)6 (in this case we stop) or 
(x„)ci...Cs or (a;„_i,ai,02)ci-Cs or {xn-2,ai,a2)ci—Cs — and so on... Assume we 
obtain {x()^di,d2)p-i---^k during the construction. The variable XQ_di,d2 represents 
to[di/x,d2/g], and to >- x, therefore {to[di/x,d2/g])ei...ek and {di)ei...ek have 
the same head normal form ; we then follow the construction with the A-term 
{di)ei...ek- The A-tcrm {T)9nf is solvable, and has (/)(t(t) as head normal 
form, so this construction always stops on {f)6. We can prove by a simple ar- 
gument that ^ ~^ n. 

According to the previous construction, the reduction (T)9nf >- (/)cr(T„) 
can be divided into two parts : a reduction that docs not depend on n and a 
reduction that depends on n (and not on 9n). If we allow some new reduction 
rules to get the later reductions, (something as : {xn)aia2 >~ {o.2)x„-i^ai,a2 j 
Xi+i,aiM2 >~ (a2)wi,ai,a2 (« > 0) : .To, 0,1,02 >- «i) we obtain an equivalent def- 
inition for the storage operators for Church integers : a closed A-term T is a 
storage operator for Church integers iff for every n G N, {T)xnf >- {f)Sn where 
Sn —0 Ik- To prove his storage Theorem (Theorem 5.2), Krivine used the suffi- 
cient condition of the laste equivalence. 

The notion of storage operators can be generalized for each set of closed 
normal A-terms. 

Let f be a closed normal A-term and T a closed A-term. We sad that T is a 
storage operator for t iff there is a A-term Tt ~^ t, such that for every A-term 
9t —fj t, there is a substitution cr, such that {T)9tf >- {f)o{Tt) (where / is a new 
variable). Let D be set of closed normal A-terms and T a closed A-term. We 
sad that T is a storage operator for D iff it is a storage operator for every t'mD. 

The directed A-calculus is an extension of the ordinary A-calculus built for 
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tracing a normal A-term t during some head reduction. Assume u is some nor- 
mal A-term having f as a subterm. We wish to trace the places where we really 
have to know what t is during the reduction of u. We will present how the di- 
rected A-calculus allows to find an equivalent -and easily expressed - definition 
for the storage operators. 

Let y be a set of variables of pure A-calculus. The set of terms of directed 
A-calculus, denoted by A[], is defined in the following way : 

- If a; e V, then x e A[] ; 

-li X eV, and u G A[], then Xxu £ A[] ; 

- If M, u e A[], then {u)v e A[] ; 

- If t G A is a normal A-term, such that Fv{t) C {xi, Xn}, and ai, a„ € A[], 
then [t] < ai/xi, ...,an/xn >S A[]. 

A A[]-term of the form [t] < ai/xi, ...,an/xn > is said to be a box directed by 
t. This notation represents, intuitively, the A-tcrm t where all free variables 
Xi, Xn will be replaced by oi, .., a„. The substitution < ai/xi, Un/xn > is 
denoted by < a/x >. 

A A[]-term of the form {Xxu)v is called /3-redex ; u[v/x] is called its contractum. 
A A[]-term of the form [t] < a/x > is called []-redex ; its contractum R is defined 
by induction on t : 

- li t = Xi {1 < i < n), then R = Ui : 

- If t = X Xi (1 < i < n), then R — x ; 

- If t = Xxu, then R = Xy[u] < a/x, y/x > where y ^ Ft;(a) ; 

- If i = {u)v, then R = {[u] < a/x >)[v] < a/x >. 

By interpreting the box [t] < ai/xi, Un/xn > by t[[ai/xi, a„/x„]] (the 
A-term t with an explicit substitution), the new reduction rules are those that 
allow to really do the substitution. This kind of A-calculus has been studied by 
Curien (1988) ; his Acr-calculus contain terms and substitutions and is intended 
to bettor control the substitution process created by /3-reduction, and then the 
implementation of the A-calculus. The main difference between the Acr-calculus 
and the directed A-calculus is : The first one produces an explicit substitution 
after each /?-rod\iction. The second only "executes" the substitutions given in 
advance. We can therefore consider the directed A-calculus as a restriction (the 
interdiction of producing explicit substitutions) of Acr-calculus ; a well adapted 
way to the study of the head reduction. 

Every A[]-term t can be - uniquely - written as Xxi...Xxn{R)ti...tm n, m > 0, 
R being a variable or a redex. If i? is a variable, we say that t is a /3[]-head 
normal form. If i? is a redex, we say that R is the head redex of t. The notation 
u )^^[] V means that v is obtained from u by some head reductions. 

Now, we can state the Theorem which gives an equivalent definition for 
storage operators (Nour and David 1995). 



7 



Theorem 4.1 Let t be a closed normal X-term, and T a closed X-term. T is a 
storage operator for t iff there is a X-term u t, such that 
{T)[t\f {f)Tt[[tl] < ai/xi > /yi, [tm] < am/Xm > /Vm]- 

To prove the necessary condition we associate to every Of '^p t & special 
substitution Sg over the boxes directed by subterms of t such that ^^([t]) = 9t 
and satisfying the following property : if u ^^[j v then 5£/(m) >~ Sg{v). Then 
{T)6tf >- {f)a{Tt). For the sufficient condition we use the idea given at the 
begining of this paragraph. The only difficulty is to prove that Tt — /j t. For 
that we use the fact that Tt dos not depend on 6t. 

The laste result allows to find some important properties for storage opera- 
tors (Nour and David 1995). 

Theorem 4.2 1) Let D he a set of closed normal X-terms, T and T' two closed 
X-terms. IfT is a storage operator for D , andT' ~/3 T, thenT' also is a storage 

operator for D . 

2) The set of storage operators for a set of closed normal X-terms is not recur- 
sive. But the set of storage operators for a finite set of closed normal X-terms 

is recursively enumerable. 

3) Each finite set of normal X-terms having all distinct j3ri-normal forms has a 
storage operator. 

4) Let t be a closed normal X-term, and T a closed X-term. If T is a storage 
operator for t, then there are two constants Ax^t and Bx^tt such that for every 
Ot t, n{{T)9tf) < AT,tN{9t) + BT,t ■ 

5 Storage operators in typed A-calculus 

Each data type generated by free algebras can be defined by a second order 
formula. The type of integers is the formula : N[x\ = yX {X (0) ,yy{X (y) 
^i^y)) ^ ^{^)} where X is a unary predicate variable, is a constant symbol 
for zero, and s is a unary function symbol for successor. The formula N[x] means 
semantically that x is an integer iff x belongs to each set X containing and 
closed under the successor function s. It is easy to check that, for every n € N, 
the Church integer n is of type A/'[s"(0)] and s is of type yy{N[y] N[sy]). 
A set of equations E is said to be adequate with the type of integers iff : s{a) 9^ 
and if s(a) « s(6), then a b. In the rest of the paper, we assume that all sets 
of equations are adequate with the type of integers. 

The system AF2 has the property of the unicity of integers representation 
(Krivine 1990a). 

Theorem 5.1 Let neN, if \-af2 t : iV[s"(0)], then t n. 
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A very important property of data type is the following (we express it for 
the type of integers) : in order to get a program for a function / : N — > N it is 
sufficient to prove h \fx(N[x] N[f{x)]). For example a proof of h yx{N[x] 
N\p(x)]) from the equations p(0) = 0, p{s{x)) = x gives a A-term for the prede- 
cessor in Church intergers (Krivine 1990a). 

If we try to type a storage operator T for Church integers in AF2 type 
system, we naturally find the type yx{N[x] — > -i-^Nlx]}. But this type does 
not characterize the storage operators (take for example T = \v\f{f)v). This 
comes from the fact that the type Vx{A^[x] -i-iiV[a;]} does not take into ac- 
count the independency of r„ from 6'„. To solve this problem, we must prevent 
the use of the first N[x\ in ^x{N[x\ — » -i-iA''[x]} as well as his subtypes to prove 
the second N[x\. 

For each formula F of AF2, we indicate by F^ the formula obtained by 
putting -1 in front of each atomic formulas of F {F^ is called the Godel trans- 
lation of F). For example : N3[x] = VX{-.X(0), Vt/(-.X(y) ^ -^X{sy)) 
-^X{x)}. It is well known that, if F is provable in classical logic, then F^ is 
provable in intuitionistic logic (Krivine 1990a). 

We can check that \-af2 Ti,T2 : V.x{7V9[.t] -^^N[x]}. And, in general, we 
have the following Theorem (Krivine 1990a, Nour 1994) : 

Theorem 5.2 If\-AF2 T : yx{NB[x] -i-iA''[a;]}, then T is a storage operator 
for Church integers. 

We will give some ideas for the proofs of this Theorem. Krivine (1990a) 
introduced a semantic for his system and he proved that : if t is of type A 
then t belongs A. Since T is of type yx{N^[x] -^^N[x]} then T belongs 
N^[s"{0)] — > -i-iA^[s"(0)]. With the proper semantic interpretation of _L we 
check that x„ belongs A/'»[s"(0)] and / belongs -.A/'[s"(0)]. This implies that 
(T)xnf belongs to _L which gives the theorem directly from the choice of the 
interpretation of _L. We presented (Nour 1994) a syntactical proof of this result. 
We prove by using only the syntactical properties of the system AF2 that the 
A-term T satisfies the properties which we need. 

The storage operators given in this paper up to now give as results closed 

A-tcrms. This kind of storage operators is called proper storage operators. A 
question arises : Can we find a typed non proper storage operator for Church 
integers ? We have shown that (Nour 1993b) : 

Theorem 5.3 There is a non proper storage operator for Church integers T 
such that ^AF2 T : \/x{Ns[x] -^^N[x]}. 



9 



An example of a such operator is the foUowing ; T = \v(y)^D where 
D = XuXv{u)Xw{{{y)Xy{{{y)w)u)v)Xxx)XgXkXl{l)XnXm{n){{g)n)rn, 
7 = Xf{{{u)Xx{f){{{{x)n)f)0)Xxx)XxXyXzz. 

6 Generalization 

Some authors have been interested in the research of a most general type for 
storage operators. For example, Danos and Regnier (1992) have given as type 
for storage operators the formula Va;{A''^[a;] -'-■A''[a;]} where the operation e is 
an elaborate Godel translation which associates to every formula F the formula 
obtained by replacing in F each atomic formula by Xi (t), Xr{t) ^_L. 
Krivine (1993) and the author (Nour 1996a) have given a more general type for 
storage operators the formula yx{N'^[x] -^^N[x]} where the operation G is 
the general Godel translation which associates to every formula F the formula 
F"^ obtained by replacing in F each atomic formula X{t) by a formula Gx^/x] 
ending with _L. With the types cited before, we cannot type the simple stor- 
age operator : T = XvXf {{i')Xxx){Ti)v f (i = 1 or 2). This is due to the fact 
that the normal form of T contains a variable v applied to two arguments and 
another v applied to three arguments. Therefore, we cannot type T becaiise 
the variable v is assigned by A^^[a;] (for example) and thus the number of the 
z^-arguments is fixed once for all. To solve the problem, we replace A''^' [a;] in 
the type of storage operators by another type A'^-'"[.t] which does not limit the 
number of I'-arguments and only enables to generate formulas ending with _L in 
order to find a general specification for storage operators. 

We assume that for every integer n, there is a countable set of special n- 
ary second order variables denoted by Y_\_,Z_\_...., and called _L- variables. A 
type A is called an _L-type iff A is obtained by the following rules : 

- _L is an _L-type ; 

- X^{ti, ...,t„) is an -L-type ; 

- If i? is an ±-type, then A ^ i? is an ±-type for every type A ; 

- If A is an _L-type, then \lvA is an _L-type for every variable v. 
We add to the AF2 type system the new following rules : 



^ ' Tht: "iX^A ' ' ^ ' T[-t: A[G/Xa_] 

With the following conditions : (*) Xx has no free occurence in V and (**) 
G is an ±-type. 

We call AF2± the new type system, and we write T \-± t : A if t is typable in 
AF2± of type A in the context T. 

We define two sets of types of AF2 type system: fi"*" (set of V-positive types), 
and n~ (set of V-ncgativc types) in the following way : 
- If ^ is an atomic type, then A e r^"*", and A e ; 
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- If T G n+, and T' then, T' ^ T & n+ , and T ^ T' e ft' ; 

- If T G 0+ (resp. T G fi"), then VxT G 0+ (resp. Va;T G Q"); 

- If T G n+, then VXT e n+ ; 

- If T G and X has no free occurence in T, then VXT G 

Therefore, T is a V-positive types iff the universal second order quantifier ap- 
pears positively in T. 

For each predicate variable X, we associate an _L- variable X±. For each for- 
mula A of AF2 type system, we define the formula A-^ as follows : 

- li A = R{ti, ...,tn), where R is an n-ary predicate symbol, then A-^ = A ; 

- If A = X(ti, ...,tn), where X is an n-ary predicate variable, then A-^ = 
X±{t-i, tn); 

-If A = B C, then A^ = B-^ ^ ; 

- If ^ = \/xB, then A^ = \/xB^ ; 
-lfA= MXB, then A^ = MX^B^. 

Let T be a closed A-term, and D, E two closed types of AF2 type system. We 
say that T is a storage operator for the pair of types {D, E) iff for every A-term 
\-AF2 t : D, there are A-terms Tt and r/, such that r/ ~/3 Tt, \-af2 t[ : E, and 
for every 9t t, there is a substitution a, such that {T)6tf >- {f)(^{jt) (where 
/ is a new variable). 

We have the following generalization (Nour 1995d). 

Theorem 6.1 Let D, E he two ^-positive closed types of AF2 type system,, such 
that E does not contain _L. If\-±T: — > -^-^E, then T is a storage operator 
for the pair {D, E) . 

The condition "D, E are V-positive types" is necessary in order to obtain 
Theorem 6.1. Indeed, let D = VX{VF(y X) ^ X}, t = Xx{x)Xyy, and 
T = Xv{v)Xx\f {f)\y{y)x. It is easy to check that D is not a V-positive type, 
\-AF2 t : D, T : D-^ ~'~'-D, and T is not a storage operator for D (Nour 
1993a). This counter example also works with the original Godel translation 
and with any general Godel translation. 

Theorem 6.1 allows also to generalize the result of Krivine (Theorem 5.2) to 
every data type (booleans, lists, trees, product and sum of data types, ...). 

7 Pure and typed AC-calculus 

We add a constant C to the pure A-calculus and we denote by AC the set of 
new terms also called AC-tcrms. We consider the following rules of reduction, 
called rules of head C-reduction. 

(1) {Xxu)tti...tn {u[t/x])ti...tn for evcry u,t,ti, ...,t„ G AC. 

(2) {C)tt\...tn — * (t)Xx{x)t\...tn for every t,t\, ...,tn G AC, x being a A-variable 
not appearing in fi, 
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The rule (2) is a particular case of a general law of reduction for control operators 
given in (Felleisein 1987) which is E[Ct/x] {t)XxE. 

For any AC-tcrms t, t', wc shall write t yc t' if t' is obtained from t by applying 
these rules finitely many times. 

A AC-term t is said to be /3-normal iff t does not contain a /?-redex. 

A AC-term t is said to be C-solvable iff t {f)ti, ■■■,tn where / is a variable. 
We add to the AF2 type system the new following rule : 

(0) r h c : yx{^^x X} 

This rule axiomatizes the classical over the intuitionistic logic. We call C2 the 
new type system, and we write F \-c2 t : Aift is of type A in the context F. In 
this system we have only the following weak properties (Krivine 1994). 

Theorem 7.1 l)IfT\-c2t:A, and t -^p t' , then F \-c2 t' : A. 

2) If r hc2 t :_L, and t t' , then T hc2 t' :_L. 

3) If A is an atomie type, and F \-c2 t : A, then t is C-solvable. 

In this system, the problem is : given a typed term in classical logic, what 
kind of program is it ? We shall take the example of integers. Let us call a 
AC-term 9 a classical integer if hc2 : Nls^'O]. If \-af2 : A/'[s"0], then we 
know that 6 n, and thus we know the operational behaviour of 6. But 
when is a classical integers, it is no longer true that 9 'i^p n. For example 
\-C2 Oi = \x\f{C)\y{y){f){C)Xz{y){f)x : N[sQ]. In order to recognize the 
integer n hidden inside 9 (the value of 6), we have make use of storage operators. 
Krivine (1994) has shown that : 

Theorem 7.2 If\-AF2 T : yx{Ns[x] -.-.A''[x]}, then for every n G N, there 
is a X-term Tn n such that for every classical integer On of value n, there is a 
substitution a such that {T)9nf {f)o'{Tn) (then {T)9nXxx )~c (^'{Tn) -^0 n). 

The difficulties to prove this theorem (by comparasion to the Theorem 5.1) 

arc : the operational characterization of classical integers and the; fact that this 
characterization corresponds to the behavior of typed storage operators. 

Theorem 7.2 cannot be generalized for the system C2. Indeed, let T = 
XuXf{f){C){Ti)v (i = 1 or 2). We have hc2 T : \/x{Na[x\ ^^N[x\} and 
there is not a AC-term Tn —0 n such that for every classical integer 9n of value 
n, there is a substitution a, such that {T)9nf {f)o'{Tn) (Nour 1997a). 

The Theorem 7.2 suggests many questions : 

- What is the relation between classical integers and the type A'^^[x] ? 

- Why do we need intuitionistic logic to modelize the storage operators and 
classical logic to modelize the control operators ? 
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8 The M2 type system 



In this section, we present a new classical type system based on a logical system 
called mixed logic. This system allows essentially to distinguish between classi- 
cal proofs and intuitionistic proofs. We assume that for every integer n, there is 
a countable set of special n-ary second order variables denoted by Xc, Yc, Zc 
and called classical variables. 

Let X be an n-ary predicate variable or predicate symbol. A type A is said 
to be ending with X iff ^ is obtained by the following rules : 

- X{tx, ...,tn) ends with X; 

-li B ends with X, then A ^ B ends with X for every type A ; 

- If A ends with X, then \/vA ends with X for every variable v. 

A type A is said to bo a classical type iff A ends with _L or a classical variable. 
We add to the AF2 type system the new following rules : 

(0') T\-C:yXc{-^^Xc^Xc} 

Tht:A r^t: VXcA 

^ ' r h t : VXc-A ^ ' ^ ' Tht: A[G/Xc] ^ ' 

With the following conditions : (*) Xc has no free occurence in F and (**) 
G is a classical type. 

We call Ml the new type system, and we write F \-m2 t : ^ if f is of type A in 
the context F. 



8.1 Properties of M2 

With each classical variable Xc^ we associate a special variable X* of AF2 hav- 
ing the same arity as Xq- For each formula A of M2, we define the formula A* 
of AF1 in the following way : 

-\i A — D{ti, tn) where Z) is a predicate symbol or a predicate variable, then 
A*=A ■ 

-liA = Xciti,...,tn), then A*= t„) ; 

-If A = B C, then A*= B*^ C* ; 

- If ^ = -ixB (resp. A = VXB), then A*=\/xB* (resp. A*= MXB*) ; 

- If ^ = MXcB, then A*=\/X'B*. 

We have the following result (Nour 1997a). 

Theorem 8.1 Let A he a \/ -positive type of AF2 and t a f3-normal XC-term. 

If^M2 t : A, then t is a normal X-term, and ^af2 t '■ A. 

With each predicate variable X of C2, we associate a classical variable Xc 
having the same arity as X. For each formula A of C2, we define the formula 
A'-' of M2 in the following way : 
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- If A = D{ti, tn) where D is a constant symbol, then A'-^ = A ; 

-\{ A = X{ti, tn) where X is a predicate symbol, then A^ = Xc{ti, tn) ; 
-If A = B ^ C, then A^ = ; 
-UA = \/xB, then A'^ = WxB'^ ; 
-lfA= MXB, then A'^ = MXcB'^ . 

As for relation betwen the systems C2 and M2, we have (Nour 1997a) : 

Theorem 8.2 Let A he a type ofC2, andt aXC-term. \-c2 t : A iff\-M2 t : A*^ . 

8.2 The integers in M2 

According to the results of the subsection 8.1, we obtain some results concerning 
integers in system M2 (Nour 1997a). 

Theorem 8.3 Let n e N, if\-M2 t : N[s"-{0)], then, t ~/3 n. 

Let n e N. By Theorem 8.1, a classical integer of value n is a closed XC- 
term 6n such that \-m2 On ■ A^'"[s"(0)]. For the classical integers we have only 
one operational characterization. In order to give this characterization, we shall 
need some definitions. 

Let V be the set of variables of AC-calculus. Let P be an infinite set of 
constants called stack constants ^. We define a set of AC-terms ACP by : 
-lix eV, then x e ACP ; 
-lite ACP, and xeV, then Xxt e ACP ; 

- If i e ACP, and u G ACP[jP, then {t)u e ACP. 

In other words, t e ACP iff the stack constants arc in argument positions in t. 
We consider, on the set ACP, the following rules of reduction : 

(1) {Xxu)tti...tn {u[t/x])ti...tn for aU u,te ACP and ti, ...,tn € XCP[jP ; 

(2) {C)tti...tn it)Xx{x)ti...tn for all t G ACP and ii,...,t„ G XCP\JP, and 
X being A- variable not appearing in ti, ...,tn- 

For any t, t' G ACP, we shall write t t>c t' , if t' is obtained from t by applying 
these rules finitely many times. 

Let 01 = XxXfiC)Xy{y){f){C)Xziy){f)x. We have hM2 9i : N^[sO] 
{9i)xgpo Oc {9)tiPo ; {ti)pi i>c {9)t2Po and {t2)p2 >c {x)p2- In general we have 
the following result (Nour 1997a). 

Theorem 8.4 Let n gN, 6n a classical integer of value n, and x, g two distinct 
variables. 

- If n = Q, then, for every stack constant p, we have : {On)xgp >c {x)p. 

- If n ^ 0, then there is an m € N*, and a mapping I : {0, ...,m} — > N, such 

^ The notion of stack constants is taken from a manuscript of Krivine. 
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that for all distinct stack constants po,pi, ...,Pm, we have : 

{9n)xgpo >C {g)tlPro / {U)Pi >C {9)U+lPri (1 < « < m - 1) ; {tm)Pm >C {x)Prm 

where 7(0) = n, I{rm) = 0, and I{i + 1) = /(r,) - 1 (0 < i < m - 1). 

Theorem 8.4 allows to find the value of a c;lassical integer. Let 0„ be a 
classical integer of value n. Let p be a stack constant and g, x two distinct 
variables. If {On)xgp\>c {x)p, then n = 0. If not there is an m G N*, a sequence 
(?'i)i<i<m where (0 < < m) and a mapping J : {0, ...,m} N such that 
J(0) = 0, and J{i + 1) = J{ri) + 1 (0 < i < m - 1). Therefore J(r„) = n. 

8.3 Storage operators for classical integers 

In system M2 we have a similar result to Theorem 5.2 (Nour 1997a). 

Let T be a closed AC-term. We say that T is a storage operator for classical 
integers iff for every n € N, there is a AC-term t„ ~/3 n, such that for every 
classical integers of value n, there is a substitution a, such that {T)6nf 
{f)(j{Tn) (where / is a new variable). 

Theorem 8.5 If\'M2 T : \/x{N'-'[x] -i-iA''[x]}, then T is a storage operator 

for classical integers. 

Theorem 8.5 means that if \-m2 T : yx{N'^[x] -^^N[x]}, then T takes a 
classical integer as an argument and return the Church integer corresponding 
to its value. It is enough to do the proof of this Theorem in the propositionnal 
case. The type system M is the subsystem of M2 where we only have prepo- 
sitional variables and constants. We write F \-m t : A ii t is typable in M of 
type A in the context T. Let TV = VX{X, {X ^ X) ^ X}. Theorem 8.5 is a 
consequence of the following Theorem (Nour 1997a). 

Theorem 8.6 If^M T : -i-iiV, then for every n E N, there is an to e N 

and a XC-term Tm —j3 m, such that for every classical integer On of value n, 
there is a substitution a, such that {T)6nf (/)o'(rm)- 

Indeed, if T : yx{N'^[x] -^^N[x]}, then T : -^^N . There- 

fore for every n £ N, there is an m G N and Tm —p Ul, such that for every 
classical integer On of value n, there is a substitution a, such that {T)Onf '^c 
ifHTm). We have n : 7VC^[s"(0)], then / : -A^[s"(0)] hM2 (T)n/ :±, 
therefore / : -.A''[s"(0)] \-m2 {f)m :-L and \-m2 m : N[s''{0)]. Therefore n = m, 
and T is a storage operator for classical integers. 

The proof of Theorem 8.6 uses two independent Theorems : the first one 
(Theorem 8.4) expresses a property of classical integers and the second one 
(Theorem 8.7) expresses a property of a AC-terms of type iV^ — > -i^N. 
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Let V and / be two fixed variables. We denote by Xn,a,h,c (where n is an 
integer, a, h two A-terms, and c a finite sequence of A-terms) a variable which 
does not appear in a, 6, c. We have (Nour 1997a) : 

Theorem 8.7 Let Km T : N'^ -^^N and n S N. There is m e N and a 
finite sequence of head reductions {Ui >~c ^i}i<«<r such that : 

1) U\ = {T)uf and Vr = {f)Tm where Tm — /3 Hk / 

2) Vi = {i^)abc or = {xi^a,b,^)d (0 < ^ < n - 1) ; 

3) IfVi = {v)ahc, then Ui+i = (a)c if n = and Ui+i = {{h)xn-i,a,b,c)c- ifn^Q 

4) IfVi = {xi a bc)d (0 < Z < n — 1), then Ui+i = {a)d if I = and Ui+i = 
m^l-i,aAl^difl^O. 

Let r be a closed AC-term, and D, E two closed types of AF2 type system. 
We say that T is a storage operator for the pair of types [D, E) ifi^ for every 
A-term \-af2 t : D, there is A-term and AC-term Tj, such that r/ r^, 
\-AF2 t[ : E, and for every \-c2 '■ D, there is a substitution a, such that 
{T)6tf {f)(^{Tt) (where / is a new variable). 

We can generalize Theorem 8.5 (Nour 1997a). 

Theorem 8.8 Let D, E two M -positive closed types of AF2 type system, such 
that E does not contain _L. If\-M2 T : Z)^ — *■ -^^E, then T is a storage operator 
for the pair {D, E). 

9 The A//-calculus 

9.1 Pure and typed A//-calculus 

A/z-calculus has two distinct alphabets of variables : the set of A-variables 
x,y,z,..., and the set of /x-variables 7,.... Terms (also called A/x-terms) 
are defined by the following grammar : t := x \ Xxt \ {t)t \ fia[P]t. 
The reduction relation of A/x-calculus is induced by fives different notions of 
reduction : 

The computation rules 

(Ci) {Xxu)v u[v/x] 

{C2) {f^au)v ^a:ii[v/*a] whore u\y/*a] is obtained from u by replacing in- 
ductively each subterm of the form [a]w by [Q!](w)tJ. 
The simplification rules 

(5*1) [a]fif3u u[a/P] 

(5*2) /iQ;[Q;]u ?i, if a has no free occurence in u 

{S3) jiau — > \xiJiau[x/*a\, if u contains a subterm of the form [a\\yw. 

Parigot (1992) has shown that : 
Theorem 9.1 In Xfi- calculus, reduction is confluent. 
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The notation u v means that v is obtained from u by some head reduc- 
tions. The head equivalence relation is denoted by : u v iS there is a w, 
such that uy^w and v w. 

Proofs are written in a natural deduction system with several conclusions, 

presented with sequents. One deals with sequents such that : 

- Formulas to the left of h are labelled with A- variables ; 

- Formulas to the right of h are labelled with /x- variables, except one formula 

which is labelled with a Xfi-term ; 

- Distinct formulas never have the same label. 

Let f be a A/x-term, A a type, F = : Ai,...,Xn : An, and A = ai : 
Bi, ...,am ■ Bm- We define by means of the following rules the notion H is of 
type A in F and A" . This notion is denoted by F l-irD2 t : ^, A. 
The rules (1 ),..., (8) of AF2 type system and the following rule : 

, . V^FD2t:A,l3:B,A 
^ ^ T ^FD2 ^^P[a\t : B,a:A,A 

Weakenings are included in the rules (2) and (9). 

As in typed A-calculus on can define -lA as A — >_L and use the previous rules 
with the following special interpretation of naming for _L : for a a /^-variable, 
a :± is not mentioned. This typed A-calculus system is called FD2. It has the 
following properties (Parigot 1992). 

Theorem 9.2 1) Type is preserved during reduction. 
2) Typable Xii-terms are strongly normalizable. 

9.2 Classical integers 

Let n be an integer. A classical integer of value n is a closed A/z-term 0„ such 

that \-FD2 0n ■■ iV[s"(0)]. 

Let X and / fixed variables, and N^j be the set of A/x-terms defined by the 
following grammar : u := x \ {f)u \ iJ,a[(3]x \ iJ,a[l3]u. 

We define, for each u G N^j the set rep{u), which is intuitively the set of inte- 
gers potentially repesented by u : 

- rep{x) = {0} ; 

- rep{{f)u) ~ {n + 1 if n G rep{u)} ; 

- rep{^a[j3\u) = {^rep{v) for each subterm [a]v of [j3]u. 

The following Theorem characterizes the classical integers (Parigot 1992). 

Theorem 9.3 The normal classical integers of value n are the Xfi-terms of the 
form XxXfu with u G N^j without free ii-variable and such that rep{u) = {n}. 
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Let 9 = XxXfu where 
u = {f)f,a[a] (Ma] (/)m^H (/) {fW[4>] iMP] (/)/x7 W (MP] {f)x. 
We can check that rep{u) = {4}. Then ^ is a classical integer of value 4. 

We will present now a simple method to find the value of a classical integer. 
We define, for each u € N^j the set val{u), which is intuitively the set of the 
possible values of u : 

- valix) = {0} ; 

- val{{f)u) = {n + 1 if n S val{u)} ; 

- val{iJ,a[P]u) = [jval{v) for each subterm [a]v of [P]u. 

Let u e Nxj without free /i- variable and ai, ...,q:„ the /z- variables of u which 

satisfy : ai is the /i- variable such that [q:i](/)*ix is a subterm of u, otj (2 < 
j < n) is the /x- variable such that [aj\{fy^ fiaj-iUj-i is a subterm of u, and 
u = {fy"+^ ^UnUn- Let to = X and tj = fJ^ajUj (1 < j < n). 

Wc have (Nour 1997b). 

Lemma 9.1 For every (1 < j < n + 1) ; 

1) val{tj-^i) = { ^ ik}. 

l<k<j 

2) For each subterm t ofuj, such that t ^ {fYtk {0 < k < j — 1), val{t) = 0. 
In particular val{u) = { ik}- 

l<fe<n+l 

Using Lemma 9.1 and the fact that for each u G N^j, rep{u) C val{u) we 
deduce the following result (Nour 1997b) : 

Theorem 9.4 If 9 is a normal classical integer of value n, then 9 = XxXfu 
with u G Nx.f without free ^-variable and such that val{u) = {n}. 

Then to find the value of a normal classical integer 9 = XxXfu, we try the 
yu- variables aj {1 < j < n + 1) and the integers ij (1 < j < n + 1) of the A/U-term 
u. The value of 9 is equal to ^ ik- 

l<fe<n+l 

9.3 Storage operators in A//-calculus 

Let T be a closed A-term. Wc say that T is a storage operator for classi- 
cal integers iff for every {n > 0), there is A-term r„ ~^ n, such that for 
every classical integers 9n of value n, there is a substitution a, such that 
{T)9nf ~/:t na[a]{f)(j{Tn) (where / is a new variable). 

Parigot (1993a) has shown that : 

Theorem 9.5 If\-AF2 T : \lx{N3[x\ — > -^^N[x]}, then T is a storage operator 
for classical integers. 
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In order to define, in this framework, tlie equivalent of system M2, the 
demonstration of -i-iA — > A should not be allowed for all formulas A, and thus 
we should prevent the occurrence of some formulas on the right. Thus the fol- 
lowing definition. 

We add to the FD2 type system the new following rules : 

a,) rht:AA rht:VXcAA 

^ ' Tht:\fXcA,A^ ^ ^ ' Tht:A[G/Xc],A^ ' 

With the following conditions : (*) Xc has no free occurence in F and (**) G 

is a classical type. 

We call M2 the new type system, and we write F \-m2 t : A, A \i t is oi type A 
in the F and A. 

Let T be a closed A/x-term. We say that T is a storage operator for clas- 
sical integers iff for every {n > 0), there is A/i-term t„ n, such that 
for every classical integers 6'„ of value n, there is a substitution cr, such that 
{T)Onf "^ij, fJ.(y[a]{f)a{Tn) (where / is a new variable). 

Wc have the following result : 

Theorem 9.6 //hM2 T : \/x{N'^[x] -n^N[x]}, then T is a storage operator 
for classical integers. 
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